library(shiny)
library(shiny.semantic)
library(leaflet)
map <- leaflet(data=census1) %>%
addTiles() %>%
addMarkers(lng=~long, lat=~lat, popup= ~hectare,clusterOptions = markerClusterOptions())
map
library(formattable)
datatable(head(census1), filter = "top",escape = FALSE,
options = list(scrollX = TRUE),
rownames = FALSE)
plot2 <- plot_ly(census1, x = ~lat, color=~hectare) %>%
add_lines(y = ~long)
plot2